home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / MacTCP / Finger 1.3.7 / Tokens / MACHINE.p < prev    next >
Encoding:
Text File  |  1991-11-14  |  387 b   |  26 lines  |  [TEXT/PJMM]
  1. unit MACHINE;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ParameterDef;
  7.  
  8.     procedure Main (var p: parameterRecord);
  9.  
  10. implementation
  11.  
  12.     const
  13.         machine_id = -16413;
  14.  
  15.     procedure Main (var p: parameterRecord);
  16.         var
  17.             sh: stringHandle;
  18.     begin
  19.         sh := GetString(machine_id);
  20.         if sh <> nil then
  21.             p.returnValue^ := sh^^ { Don't release it, someone else may be using it }
  22.         else
  23.             p.returnValue^ := '?';
  24.     end;
  25.  
  26. end.